Attribute VB_Name = "DECLARE"
Option Explicit

Global glbUser As String
Global glbPassword As String
Global glbMDB As String
Global glbFiles As String
Global glbFilesPath As String
Global glbHadAtLeastOneRecord As Integer
Global glbDocWithNoFiles As Integer
Global glbX As Integer
Global glbDatabasePath As String
Global glbDocumentsPath As String
Global glbAdder As Integer
Global glbMakeDirectoryCheck As Boolean
Global glbExtractionPath As String
Global glbSelectedFromDialogBox As String
Global glbThisIsCEI As Boolean
Global glbCEIFileName As String
Global glbStart As Boolean
Global glbCEIFilePath As String

'Global glbDocumentsToImport As Integer


' Defines for the login
Global Const LOGIN_FLAG_INTERACTIVE& = 1
Global Const LOGIN_FLAG_RETRY_ON_ERROR& = 2
Global Const LOGIN_FLAG_CHANGE_LOGIN& = 4
Global Const LOGIN_FLAG_SHOW_HINTS& = 32
Global Const LOGIN_FLAG_SHORT_FORM& = 256
Global Const LOGIN_FLAG_CONFIGURE_FORM& = 32768

' Defines for doctool
Public Const ADCDF_DP_INSERT = "A_Insert"
Public Const ADCDF_DP_LAYOUT = "A_Layout"
Public Const ADCDF_DP_DOCCONTENTTYPE = "A_DocContentType"
Public Const ADCDF_DP_DOCTYPE = "A_DocType"
Public Const ADCDF_DP_DOCCLASS = "A_DocClass"
Public Const ADOCTYPE_DOCUMENT = 1
Public Const DOCTOOLNAME = "filestore"

' for Info form   OK = True, Cancel = False
Public ClickOK As Boolean

' array for information list shown in the info form
Public arInfo(200) As String

' start and end indices for information of specific object

Public OverviewStart As Integer
Public OverviewEnd As Integer
Public UserInfoStart As Integer
Public UserInfoEnd As Integer
Public ArchiveInfoStart As Integer
Public ArchiveInfoEnd As Integer
Public DocAreaInfoStart As Integer
Public DocAreaInfoEnd As Integer
Public DocumentImporterInfoStart As Integer
Public DocumentImporterInfoEnd As Integer

' variables for User object
Public MyUser As Object
Public sActualArchiveName As String
Public sUser As String
Public sPassword As String
Public sDBUser As String
Public sDBPassword As String
Public iLoginFlags As Long
Public fConnectResult As Boolean
Public fLoginResult As Boolean
Public sActualUserName As String

' variables for Archive object
Public MyArchive As Object
Public sDocArea As String

' variables for DocArea object
Public MyDocAreaList As Object
Public MyDocArea As Object
Public sIndexString As String
Public fShowDocAreas As Boolean
Public iError As Long
Public iNumberOfDocAreas As Long
Public sDocAreaLabel As String
Public sfilename As String
Public sfilename2 As String

' variables for DocumentImporter object
Public MyDocumentImporter As Object
Public vDocClasses As Variant
Public MyQueueList As Object
Public MyQueue As Object

